inherited FPesquisaPagamentoProgramado: TFPesquisaPagamentoProgramado
  Left = 200
  Top = 124
  Caption = 'Pesquisa Pagamento Programado'
  ClientHeight = 359
  ClientWidth = 423
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Width = 423
    inherited BtnLimpar: TBitBtn
      OnClick = BtnLimparClick
    end
    inherited BtnSelecionar: TBitBtn
      OnClick = BtnSelecionarClick
    end
  end
  inherited Panel1: TPanel
    Width = 423
    Height = 318
    object Label6: TLabel [0]
      Left = 74
      Top = 2
      Width = 54
      Height = 13
      Caption = 'Fornecedor'
    end
    object Label5: TLabel [1]
      Left = 4
      Top = 37
      Width = 79
      Height = 13
      Caption = 'Tipo Documento'
    end
    object Label7: TLabel [2]
      Left = 210
      Top = 38
      Width = 40
      Height = 13
      Caption = 'Portador'
    end
    object Label2: TLabel [3]
      Left = 4
      Top = 79
      Width = 71
      Height = 13
      Caption = 'Validade Inicial'
    end
    object Label1: TLabel [4]
      Left = 4
      Top = 2
      Width = 33
      Height = 13
      Caption = 'C'#243'digo'
    end
    object Label10: TLabel [5]
      Left = 5
      Top = 138
      Width = 46
      Height = 13
      Caption = 'Empresas'
    end
    object Label3: TLabel [6]
      Left = 156
      Top = 79
      Width = 66
      Height = 13
      Caption = 'Validade Final'
    end
    inherited DBGrid1: TDBGrid
      Top = 192
      Width = 421
      TabOrder = 10
      Columns = <
        item
          Expanded = False
          FieldName = 'CODIGO'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FORN_RAZAO'
          Title.Caption = 'Fornecedor'
          Width = 177
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TIPO_DOC_DESCRICAO'
          Title.Caption = 'Tipo Documento'
          Width = 162
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PORT_DESCRICAO'
          Title.Caption = 'Portador'
          Width = 140
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PLANO'
          Title.Caption = 'Classifica'#231#227'o Financeira'
          Width = 231
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CENTRO'
          Title.Caption = 'Centro Custo'
          Width = 137
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PLANOCONT_DESCRICAO'
          Title.Caption = 'Conta Cont'#225'bil'
          Width = 140
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DIAVENCIMENTO'
          Title.Caption = 'Dia Vencimento'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'VALOR'
          Title.Caption = 'Valor'
          Width = 47
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PERIODOVALIDADEINI'
          Title.Caption = 'Validade inicial'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PERIODOVALIDADEFIN'
          Title.Caption = 'Validade Final'
          Width = 75
          Visible = True
        end>
    end
    inherited Panel3: TPanel
      Top = 297
      Width = 421
      TabOrder = 11
    end
    object DBLCBFornecedor: TDBLookupComboBox
      Left = 74
      Top = 15
      Width = 341
      Height = 21
      KeyField = 'FORN_CODIGO'
      ListField = 'FORN_RAZAO'
      ListSource = DSFornecedor
      TabOrder = 1
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object DBLCBTipoDocumento: TDBLookupComboBox
      Left = 4
      Top = 53
      Width = 205
      Height = 21
      DataField = 'TIPODOCUMENTO'
      KeyField = 'TIPO_DOC_CODIGO'
      ListField = 'TIPO_DOC_DESCRICAO'
      ListSource = DSTipoDocumento
      TabOrder = 2
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object DBLCBPortador: TDBLookupComboBox
      Left = 210
      Top = 53
      Width = 206
      Height = 21
      DataField = 'PORTADOR'
      KeyField = 'PORT_CODIGO'
      ListField = 'PORT_DESCRICAO'
      ListSource = DSPortador
      TabOrder = 3
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object ECodigo: TEdit
      Left = 4
      Top = 15
      Width = 66
      Height = 21
      TabOrder = 0
      OnKeyPress = ECodigoKeyPress
    end
    object CkBTodasEmpresas: TCheckBox
      Left = 5
      Top = 118
      Width = 118
      Height = 17
      Caption = 'Todas as Empresas'
      TabOrder = 8
      OnClick = CkBTodasEmpresasClick
    end
    object CLBEmpresas: TCheckListBox
      Left = 1
      Top = 152
      Width = 421
      Height = 40
      Align = alBottom
      Columns = 1
      ItemHeight = 13
      TabOrder = 9
    end
    object SEAnoInicio: TSpinEdit
      Left = 82
      Top = 96
      Width = 50
      Height = 22
      MaxLength = 4
      MaxValue = 0
      MinValue = 0
      TabOrder = 5
      Value = 2004
    end
    object SEAnoFim: TSpinEdit
      Left = 234
      Top = 96
      Width = 50
      Height = 22
      MaxLength = 4
      MaxValue = 0
      MinValue = 0
      TabOrder = 7
      Value = 2004
    end
    object CBMesInicio: TComboBox
      Left = 4
      Top = 96
      Width = 76
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      OnKeyPress = CBMesInicioKeyPress
      Items.Strings = (
        ''
        'Janeiro'
        'Fevereiro'
        'Mar'#231'o'
        'Abril'
        'Maio'
        'Junho'
        'Julho'
        'Agosto'
        'Setembro'
        'Outubro'
        'Novembro'
        'Dezembro')
    end
    object CBMesFim: TComboBox
      Left = 156
      Top = 96
      Width = 76
      Height = 21
      ItemHeight = 13
      TabOrder = 6
      OnKeyPress = CBMesInicioKeyPress
      Items.Strings = (
        ''
        'Janeiro'
        'Fevereiro'
        'Mar'#231'o'
        'Abril'
        'Maio'
        'Junho'
        'Julho'
        'Agosto'
        'Setembro'
        'Outubro'
        'Novembro'
        'Dezembro')
    end
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      
        'Select Pagamento_Programado.Codigo,Forn_Razao,Tipo_Doc_Descricao' +
        ',Port_Descricao,PlanoContas.descricao as Plano,CentroCusto.Descr' +
        'icao as Centro,PlanoCont_Descricao'
      
        ',Pagamento_Programado.DiaVencimento,Pagamento_Programado.Valor,P' +
        'agamento_Programado.PeriodovalidadeIni,Pagamento_Programado.Peri' +
        'odovalidadeFin'
      ''
      'from Pagamento_Programado'
      'Left join Fornecedor on Fornecedor = Forn_Codigo'
      'Left join tipodocumento on TipoDocumento = Tipo_Doc_Codigo'
      'Left join Portador on Portador = Port_Codigo'
      'Left join PlanoContas on Plano = PlanoContas.Codigo'
      'Left join CentroCusto on CentroCusto = CentroCusto.Codigo'
      'Left join PlanoContabilidade on ContaContabil = PlanoCont_Codigo')
  end
  object DSTipoDocumento: TDataSource
    DataSet = DMFinanceiro.QTipoDocumento
    Left = 128
    Top = 88
  end
  object DSPortador: TDataSource
    DataSet = DMFinanceiro.Qportador
    Left = 288
    Top = 88
  end
  object DSFornecedor: TDataSource
    DataSet = DMGestao.QFornecedor
    Left = 224
    Top = 48
  end
end
